home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / wrl____3.p2s < prev    next >
Encoding:
Text File  |  1994-05-10  |  3.0 KB  |  111 lines
  1. #######################################################################
  2. # OBJECTIVE:
  3. #
  4. # Description:  Open the wave player,line in and MONITOR ON
  5. #               load new file, record, seek, play, save, close .
  6. #
  7. #  NOTE: Ensure an audio source is connected to the line in jack
  8. #        of the audio card, otherwise it will be a blank record.
  9. #######################################################################
  10.  
  11. ############################################
  12. #
  13. #   OPEN THE DIGITAL AUDIO PLAYER
  14. #   WAIT FOR SUCCESSFUL OPEN
  15. #
  16. ############################################
  17.  
  18. open waveaudio00 alias wave1 notify
  19. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  20. @WAIT_NOTIFY 1 45000
  21. ###############################################
  22. #
  23. #  ENABLE TYPE LINE IN
  24. #  SET MONITOR INPUT ON
  25. #
  26. ###############################################
  27.  
  28. CONNECTION wave1 QUERY TYPE WAVE STREAM ALIAS MPAmpMixer WAIT
  29. CONNECTOR WAVE1 ENABLE TYPE LINE IN NOTIFY
  30. SET MPAmpMixer MONITOR ON WAIT
  31. ############################################
  32. #
  33. #   LOAD A NEW FILE TO BE RECORDED
  34. #
  35. ############################################
  36.  
  37. load wave1 new notify
  38. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #2
  39. @WAIT_NOTIFY 2 30000
  40.  
  41. ############################################
  42. #
  43. #   SET THE DIGITAL AUDIO PLAYER
  44. #   TIME FORMAT - MILLISECONDS
  45. #   BITS PER SAMPLE - 8 BITS
  46. #   SAMPLES PER SEC - 22 KHz
  47. #   CHANNELS - STEREO
  48. #   FORMAT TAG - MULAW
  49. #
  50. ############################################
  51.  
  52. set wave1 time format milliseconds wait
  53. status wave1 time format wait
  54. =milliseconds
  55. set wave1 bitspersample 8 wait
  56. status wave1 bitspersample wait
  57. =8
  58. set wave1 samplespersec 22050 wait
  59. status wave1 samplespersec wait
  60. =22050
  61. set wave1 channels 2 wait
  62. status wave1 channels wait
  63. =2
  64. set wave1 format tag MULAW wait
  65. status wave1 format tag wait
  66. =MULAW
  67.  
  68. ############################################
  69. #
  70. #   RECORD THE NEW WAVE FILE
  71. #
  72. ############################################
  73. @REM ***************************************************************
  74. @REM Ensure an audio source is connected to the line in jack of the
  75. @REM audio card, otherwise it will be a blank record.
  76. @REM ***************************************************************
  77.  
  78. record wave1 from 0 to 10000 notify
  79. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #3
  80. @WAIT_NOTIFY 3 20000
  81.  
  82. ############################################
  83. #
  84. #   SEEK TO START
  85. #   PLAY THE NEW RECORDED FILE
  86. #   SAVE THE NEW RECORDED FILE
  87. #
  88. ############################################
  89.  
  90. seek wave1 to 0 wait
  91. status wave1 position wait
  92. =0
  93. play wave1 notify
  94. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #4
  95. @WAIT_NOTIFY 4 45000
  96. save wave1 delete.wav notify
  97. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SAVE #5
  98. @WAIT_NOTIFY 5 45000
  99.  
  100. ############################################
  101. #
  102. #   CLOSE THE DIGITAL AUDIO PLAYER AND
  103. #   EXPECT A SUCCESSFUL CLOSE
  104. #
  105. ############################################
  106.  
  107. close wave1 notify
  108. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #6
  109. @WAIT_NOTIFY 6 45000
  110.  
  111.